home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_12 / econet / RISCiX / np_c < prev   
Encoding:
Text File  |  1990-10-01  |  7.6 KB  |  307 lines
  1. /* > np 
  2.  * (C) Alan Williams 1990
  3.  * Source file for a program to copy stdin to an Econet printer server
  4.  * in 80 byte chunks.  
  5.  * 
  6.  * The idea is that you can use it as a pipe end.  For example
  7.  *  $ cat file | netprint
  8.  * will print the file on an Econet printer server.
  9.  * One optional parameter is permited.  That is the Econet address of the 
  10.  * server.  Acceptable syntax include net.station station and a name.
  11.  * For example 1.150, 235, and Laser2 will all work.
  12.  * The name form is prefered as it will error faster if the server is not
  13.  * free.
  14.  *
  15.  * This program prefers to have public read access to /dev/cmos.
  16.  * root may have to set this otherwise 0.235 will be assumed. 
  17.  *
  18.  *
  19.  * Started 1pm 15/9/1990.
  20.  * Worked first 4:30pm 16/9/1990
  21.  * A little more on 17/9/1990 ( started on the /dev/cmos bit.)
  22.  * A little more on 18/9/1990 ( it's not that easy.....)
  23.  * did some work on the printer poll bit instead.
  24.  * A little more on 1/10/1990 ( More work on /dev/cmos bit.)
  25.  */
  26.  
  27. #include <stdio.h>
  28. #include <strings.h>
  29. #include "sys/ioctl.h"
  30. #include "dev/econet.h"
  31.  
  32. unsigned char buffer[80];
  33. int bufferptr;
  34. int h,i;
  35. int seq;
  36.  
  37. struct netaddr {
  38.     unsigned char station;
  39.     unsigned char net;
  40. } 
  41. ;
  42.  
  43. struct netaddr server;
  44.  
  45. void quithandler() {
  46.     /*  Intended to be called on close down.  It should free ports and close
  47.         down gracefully.
  48.      */
  49.     if (h!=0) close(h);
  50. }
  51.  
  52. void error(char *s){
  53.     printf("%s\n",s);
  54.     quithandler();
  55.     exit(1);
  56. }
  57.  
  58. int claimeconetport(int port,int h){
  59.     return(ioctl(h,ECOCLAIMPORT,&port));
  60. }
  61.  
  62. void getserverbyname(char *s)
  63. {
  64.     int rc;
  65.     struct eco_op tx,rp;
  66.     if (strlen(s) >6 ) error("netprint: server name too long.");
  67.     strcpy(buffer,"      ");
  68.     strcpy(buffer,s);
  69.     buffer[strlen(s)]=' ';
  70.     buffer[6]=0x01;
  71.     buffer[7]=0x00;
  72.  
  73.     tx.eco_tx_data_ptr = (int) buffer;
  74.     tx.eco_tx_data_length = 8;
  75.     tx.eco_station = 0xFF;
  76.     tx.eco_net     = 0xFF;
  77.     tx.eco_control = 0;
  78.     tx.eco_port    = 0x9F;
  79.     rc=ioctl(h,ECOTRANSMIT,&tx);
  80.  
  81.     if (rc==-1) error("netprint: net error.");
  82.     rp.eco_buffers  = 1;
  83.     rp.eco_rx_group = 0;
  84.     rp.eco_station  = 0;
  85.     rp.eco_net      = 0;
  86.     rp.eco_control  = 0;
  87.     rp.eco_port     = 0x9E;
  88.     rc=ioctl(h,ECOENABLERECEPTION,&rp);
  89.     rp.eco_time_wait= 200;
  90.     rc=ioctl(h,ECOAWAITRECEPTIONTIMED,&rp);
  91.     rc=ioctl(h,ECOBUFFERSTATUS,&rp);
  92.     if (rp.eco_data_length == 0 ) error("Can't find named printer.");
  93.     rp.eco_data_ptr = (int) buffer;
  94.     rc=ioctl(h,ECOBUFFERREAD,&rp);
  95.     if (buffer[0] == 1) error("Printer is bussy.");
  96.     if (buffer[0] == 2) error("netprint: printer is jammed.");
  97.     /* rc=ioctl(h,ECOBUFFERKILL,&rp); */
  98.  
  99.     server.net     = rp.eco_net;
  100.     server.station = rp.eco_station;
  101. }
  102.  
  103.  
  104. void defaultservernumber()
  105. /* Now reads from /dev/cmos to find out defaults */
  106. {
  107.     int n,f;
  108.  
  109.     /* server.net=0;
  110.      * server.station=235;
  111.      * old code now redundant
  112.      */
  113.  
  114.     f=open("/dev/cmos",0,0);
  115.     /* RISC OS PRM Pages 783..786 for CMOS ram mappings   
  116.      * This code tries to read the first five bytes of CMOS ram
  117.      */
  118.  
  119.     n=read(f,buffer+10,5);
  120.     if (n==-1) { 
  121.         printf("netprint: can't read /dev/cmos.  Using 0.235\n");
  122.         server.net=0;
  123.         server.station=235;
  124.         return;
  125.     }
  126.     printf("File handle for /dev/cmos is %d\n",n);
  127.     printf("CMOS ram read results \n");
  128.     printf(" 0  1  2  3  4  5 \n");
  129.     printf("%d %d %d %d %d %d \n",buffer[10],buffer[11],buffer[12],buffer[13],buffer[14]);
  130.     printf("%d \n",buffer[13]);
  131.     if (buffer[13]==0) {
  132.         lseek(f,153L,0);
  133.         n=read(f,buffer+15,5);
  134.         buffer[20]=0;
  135.         printf("Configured server name is %s\n", buffer+14);
  136.         getserverbyname((char *) buffer+14); 
  137.     }
  138.     else
  139.     {
  140.         server.net     = buffer[14];
  141.         server.station = buffer[13];
  142.     }
  143. }
  144.  
  145. void getservernumber(char *c) {
  146.     int n1;
  147.     char *dot;
  148.     dot = index(c,'.');
  149.     n1 = atoi(c);
  150.     if ((dot==NULL) && (n1==0)) {
  151.         /* Find printer via name broadcast */
  152.         getserverbyname(c);
  153.     }
  154.     else {
  155.         if (dot!=NULL) { 
  156.             server.station=atoi(dot+1);
  157.             server.net=n1;
  158.         }
  159.         else {
  160.             server.net=0;
  161.             server.station=n1;
  162.         }
  163.         if ((server.station > 254) | (server.station < 1 )) error("netprint: Bad econet station number."); 
  164.     }
  165. }
  166.  
  167. void sendbuffer(int flags) {
  168.     int rc;
  169.     struct eco_op tx,rp;
  170.     tx.eco_tx_data_ptr = (int) buffer;
  171.     tx.eco_tx_data_length = bufferptr;
  172.     tx.eco_station = server.station;
  173.     tx.eco_net     = server.net;
  174.     tx.eco_control = seq | flags;
  175.     tx.eco_port    = 0xD1;
  176.     rc=ioctl(h,ECOTRANSMIT,&tx);
  177.  
  178.     if (rc==-1) error("Net error.");
  179.     seq = (seq + 1) % 2;
  180.     rp.eco_buffers  = 1;
  181.     rp.eco_rx_group = 0;
  182.     rp.eco_station  = server.station;
  183.     rp.eco_net      = server.net;
  184.     rp.eco_control  = 0;
  185.     rp.eco_port     = 0xD1;
  186.     rc=ioctl(h,ECOENABLERECEPTION,&rp);
  187.     rp.eco_time_wait= 2000;
  188.     rc=ioctl(h,ECOAWAITRECEPTIONTIMED,&rp);
  189.     rc=ioctl(h,ECOBUFFERSTATUS,&rp);
  190.     rc=ioctl(h,ECOBUFFERKILL,&rp);
  191. }
  192.  
  193. void putinbuffer(char c) { /* intersting cast between int and char here! */
  194.     buffer[bufferptr]=c;
  195.     bufferptr+=1;
  196.     if (bufferptr == 80) {
  197.         sendbuffer(0);
  198.         bufferptr = 0;
  199.     }
  200. }
  201.  
  202. int testserver(){
  203.     /* open an RXCB for ps on port &9E
  204.        do a TX on port &9F to ps with data = "PRINT" 01 00
  205.        wait a reasonable time for a reply (1 second?)
  206.        If no reply comes then we can't talk to this server.
  207.        An interesting feature of the protocol is the fact that a server
  208.        must respond to request on its own name (such as Laser etc) and
  209.            to the name "PRINT " as well!!
  210.      */
  211.  
  212.     int rc;
  213.     struct eco_op tx,rp;
  214.     strcpy(buffer,"PRINT ");
  215.     buffer[6]=0x01;
  216.     buffer[7]=0x00;
  217.  
  218.     tx.eco_tx_data_ptr = (int) buffer;
  219.     tx.eco_tx_data_length = 8;
  220.     tx.eco_station = server.station;
  221.     tx.eco_net     = server.net;
  222.     tx.eco_control = 0;
  223.     tx.eco_port    = 0x9F;
  224.     rc=ioctl(h,ECOTRANSMIT,&tx);
  225.  
  226.     if (rc==-1) error("netprint: printer not listening.");
  227.     rp.eco_buffers  = 1;
  228.     rp.eco_rx_group = 0;
  229.     rp.eco_station  = server.station;
  230.     rp.eco_net      = server.net;
  231.     rp.eco_control  = 0;
  232.     rp.eco_port     = 0x9E;
  233.     rc=ioctl(h,ECOENABLERECEPTION,&rp);
  234.     rp.eco_time_wait= 200;
  235.     rc=ioctl(h,ECOAWAITRECEPTIONTIMED,&rp);
  236.     rc=ioctl(h,ECOBUFFERSTATUS,&rp);
  237.     if (rp.eco_data_length == 0 ) error("netprint: no reply from printer");
  238.     rp.eco_data_ptr = (int) buffer;
  239.     rc=ioctl(h,ECOBUFFERREAD,&rp);
  240.     if (buffer[0] == 1) error("Printer is bussy.");
  241.     if (buffer[0] == 2) error("Printer is jammed.");
  242.     return(1);
  243. }
  244.  
  245. int logon(){
  246.     /* open an RXCB for ps on port D1 for the reply
  247.      * Then send the log on request and wait for the reply.
  248.      */
  249.     int rc,junk;
  250.     struct eco_op log,rply;
  251.     junk=0;
  252.  
  253.     rply.eco_buffers  = 1;
  254.     rply.eco_rx_group = 0;
  255.     rply.eco_station  = server.station;
  256.     rply.eco_net      = server.net;
  257.     rply.eco_control  = 0;
  258.     rply.eco_port     = 0xD1;
  259.  
  260.     log.eco_tx_data_ptr = (int) &junk;
  261.     log.eco_tx_data_length = 1;
  262.     log.eco_station = server.station;
  263.     log.eco_net     = server.net;
  264.     log.eco_control = 0x02; /* 0x82 */
  265.     log.eco_port    = 0xD1;
  266.     rc=ioctl(h,ECOTRANSMIT,&log);
  267.     if (rc==-1) return(1);
  268.     rc=ioctl(h,ECOENABLERECEPTION,&rply);
  269.     rply.eco_time_wait = 2000;
  270.     rc=ioctl(h,ECOAWAITRECEPTIONTIMED,&rply);
  271.     rc=ioctl(h,ECOBUFFERSTATUS,&rply);
  272.     rc=ioctl(h,ECOBUFFERKILL,&rply);
  273.     if (rply.eco_data_length=0) return 1 ; /* no reply in time */
  274.     /* assume that we are logged on to the printer server now */
  275.     return 0;
  276. }
  277.  
  278. void logoff() {
  279.     bufferptr+=1;
  280.     sendbuffer(4);
  281. }
  282.  
  283. int main(int argc,char *argv[]) {
  284.     int b;
  285.     h=0;
  286.     seq=1;
  287.  
  288.     if ((h=open("/dev/ecof",0,0))==-1)error("Can't open econet dev.");
  289.     if (claimeconetport(0xD1,h)!=0) error("Can't claim port &D1.");
  290.     if (claimeconetport(0x9E,h)!=0) error("Can't claim port &9E.");
  291.     if (claimeconetport(0x9F,h)!=0) error("Can't claim port &9F.");
  292.     if (argc==2)  
  293.         getservernumber(argv[1]);
  294.     else
  295.         defaultservernumber();
  296.     printf("Server is found at %d.%d\n",server.net,server.station);
  297.     /* error("Debugging\n");  */
  298.     if (testserver()) {
  299.         if (logon()!=0) error("Can't log on to server.");
  300.         while ((b=getchar())!= EOF) 
  301.             putinbuffer(b); 
  302.         logoff(); 
  303.     }
  304.     quithandler();
  305.     return 0;
  306. } /* main */
  307.